www.gusucode.com > (粗糙集数据分析工具箱) matlab源码程序 > matlab代做 修改 程序工具箱 (粗糙集数据分析工具箱) matla 中使用/rsda/ind.m
function y=ind(a,x) [p,q]=size(x); [ap,aq]=size(a); z=[]; for u=1:q, z=cat(2,z,u); end tt=setdiff(z,a); [ttp,ttq]=size(tt); for r=ttq:-1:1, x(:,tt(r))=[-1]; end for r=q:-1:1, if x(1,r)==-1, x(:,r)=[]; end end %i=find(x(1,q:-1:1)==-1); x(:,i)=[]; y=x; for i=1:p, v(i)=codea(aq,y(i,:),10); end y=v'; [yy,I]=sort(y); y=[yy I]; [b,k,l]=unique(yy); y=[l I]; m=max(l); aa=zeros(m,p); for ii=1:m for j=1:p if l(j)==ii, aa(ii,j)=[I(j)]; end end end y=aa; function yy=codea(a,x,b) yy=0; for i=1:a, yy=yy+x(i)*b^(a-i); end